home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / graphics / facesaver.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-02  |  250 b   |  18 lines
  1. DIM Array%(563)
  2.  
  3. CIRCLE (50,20),40
  4. CIRCLE (35,12),5
  5. CIRCLE (65,12),5
  6. CIRCLE (50,20),8
  7. CIRCLE (50,18),30,,3.5,5.8
  8. PAINT (50,20),3,1
  9.  
  10. GET (0,0)-(99,39),Array%
  11.  
  12. OPEN "Face" FOR OUTPUT AS 1
  13.   FOR x=0 TO 563
  14.     PRINT#1,MKI$(Array%(x));
  15.   NEXT x
  16. CLOSE 1
  17.  
  18.